proc avg {numbers} {
	set sum 0
	foreach number $numbers {
		set sum [expr $sum + $number]
	}
	set average [expr $sum / [llength $numbers]]
	return $average
}

puts [avg {200 500 23 25}]
puts [avg {23 23 34 45 44}]
